home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab100 / about.frm next >
Text File  |  1995-09-06  |  4KB  |  140 lines
  1. VERSION 2.00
  2. Begin Form AboutForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About Tablenette (Vers 1.0)"
  6.    ClientHeight    =   3015
  7.    ClientLeft      =   1485
  8.    ClientTop       =   1830
  9.    ClientWidth     =   6510
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00C000C0&
  12.    Height          =   3420
  13.    Left            =   1425
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   3015
  19.    ScaleWidth      =   6510
  20.    Top             =   1485
  21.    Width           =   6630
  22.    Begin CommandButton Ok 
  23.       Caption         =   "Ok"
  24.       Default         =   -1  'True
  25.       Height          =   465
  26.       Left            =   2670
  27.       TabIndex        =   0
  28.       Top             =   2415
  29.       Width           =   915
  30.    End
  31.    Begin PictureBox Picture1 
  32.       Height          =   495
  33.       Left            =   2880
  34.       Picture         =   ABOUT.FRX:0000
  35.       ScaleHeight     =   465
  36.       ScaleWidth      =   390
  37.       TabIndex        =   7
  38.       Top             =   1815
  39.       Width           =   420
  40.    End
  41.    Begin Label Label1 
  42.       Alignment       =   2  'Center
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "CompuServe: 100020,3472"
  45.       Height          =   285
  46.       Index           =   6
  47.       Left            =   1020
  48.       TabIndex        =   6
  49.       Top             =   1440
  50.       Width           =   4440
  51.    End
  52.    Begin Label Label1 
  53.       Alignment       =   2  'Center
  54.       BackColor       =   &H00C0C0C0&
  55.       Caption         =   "Tel: +44 727 47806 or (0727) 47806"
  56.       Height          =   330
  57.       Index           =   5
  58.       Left            =   870
  59.       TabIndex        =   5
  60.       Top             =   1170
  61.       Width           =   4890
  62.    End
  63.    Begin Label Label1 
  64.       Alignment       =   2  'Center
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "1 Stonecross, St. Albans, Herts,ENGLAND, AL1 4AA"
  67.       Height          =   270
  68.       Index           =   4
  69.       Left            =   870
  70.       TabIndex        =   4
  71.       Top             =   885
  72.       Width           =   4830
  73.    End
  74.    Begin Label Label1 
  75.       Alignment       =   2  'Center
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "Sycomp Limited"
  78.       Height          =   240
  79.       Index           =   3
  80.       Left            =   855
  81.       TabIndex        =   3
  82.       Top             =   645
  83.       Width           =   4515
  84.    End
  85.    Begin Label Label1 
  86.       Alignment       =   2  'Center
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "Developed By: Martin Ryan"
  89.       Height          =   270
  90.       Index           =   2
  91.       Left            =   855
  92.       TabIndex        =   2
  93.       Top             =   375
  94.       Width           =   4545
  95.    End
  96.    Begin Label Label1 
  97.       Alignment       =   2  'Center
  98.       BackColor       =   &H00C0C0C0&
  99.       Caption         =   "Tablenette Version 1.0"
  100.       Height          =   255
  101.       Index           =   1
  102.       Left            =   870
  103.       TabIndex        =   1
  104.       Top             =   90
  105.       Width           =   4515
  106.    End
  107. End
  108. Sub BTButton5_Click ()
  109.     Unload AboutForm
  110. End Sub
  111.  
  112. Sub Form_Load ()
  113.     AboutForm.Height = Form1.Height / 2
  114.     AboutForm.Width = Form1.Width * 2 / 3
  115.     AboutForm.Top = Form1.Top + (AboutForm.Height / 2)
  116.     AboutForm.Left = Form1.Left + (AboutForm.Width / 4)
  117.     Ok.Top = AboutForm.Height - 800
  118.     Ok.Left = AboutForm.Width / 2 - (Ok.Width / 2)
  119.     
  120.     Dim Spacer As Integer
  121.     
  122.     Spacer = AboutForm.Height / 10
  123.  
  124.     For i = 1 To 6
  125.         Label1(i).Width = AboutForm.Width
  126.         Label1(i).Left = 0
  127.         Label1(i).Height = 250
  128.         Label1(i).Top = i * Spacer
  129.     Next i
  130. End Sub
  131.  
  132. Sub Ok_Click ()
  133.     Unload AboutForm
  134. End Sub
  135.  
  136. Sub OKButton_Click ()
  137.     Unload AboutForm
  138. End Sub
  139.  
  140.